home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / userbox / publicdomain / amigatrainer_v22 / installer-skript < prev    next >
Text File  |  1996-06-08  |  18KB  |  467 lines
  1. ;
  2. ; AmigaTrainer Installations- Skript $VER:AmigaTrainer 2.2 (15.04.1996)
  3. ;
  4. (if (= "deutsch" @language)
  5. (
  6.     (set default_lang 1)
  7.  
  8.     (set #startmsg "\nAmigaTrainer Installations-Skript.\n\nDieses Skript installiert AmigaTrainer auf Ihrer Festplatte oder Diskette.\n\nAmigaTrainer © 1994-96 by Frank Weber\nAlle Rechte vorbehalten.")
  9.     (set #choosedir "Bitte wählen Sie das Verzeichnis, in dem die AmigaTrainer-Schublade erstellt werden soll")
  10.     (set #choosehelp (cat "\nIn dem Verzeichnis, das Sie hier auswählen, wird eine Schublade mit dem Namen AmigaTrainer erstellt, in die das Hauptprogramm und die dazugehörigen Dateien kopiert werden."))
  11.     (set #copybeispiel "\nMöchten Sie die Zusatzdateien\n(Vokabeln/Sounds...) installieren ???\n\n(Sollten Sie installieren)")
  12.     (set #copybeispiel-help "AmigaTrainer werden einige Dateien mitgeliefert,\nz.B. Vokabeldateien oder Sounddateien, die Sie später in AmigaTrainer verwenden können.\n\nKlicken Sie auf 'Ja', wenn Sie diese Dateien installieren möchten.")
  13.     (set #overwritemsg (cat"\nAmigaTrainer wurde bereits in dieses Verzeichnis installiert.\n\nAltes AmigaTrainer-Verzeichnis löschen ???"))
  14.     (set #overwritehelp (cat"\nIn dem Verzeichnis, das Sie ausgewählt haben, existiert bereits ein Verzeichnis mit dem Namen 'AmigaTrainer'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett löschen möchten, bevor diese Version installiert wird."))
  15.     (set #chooselang "\nWelche Sprachen sollen installiert werden ???")
  16.     (set #chooselang-help "\nWenn Sie AmigaTrainer in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren. Wählen Sie aus, welche Cataloge Sie installieren wollen")
  17.     (set #copylangs "\nMöchten Sie die Sprachdateien (Cataloge) für Deutsch und Englisch installieren ???")
  18.     (set #copylangs-help "\nWenn Sie AmigaTrainer in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren.")
  19.     (set #keyfiledir "\nWohin soll das Keyfile kopiert werden ??\n")
  20.     (set #keyfiledir-help "\nUm AmigaTrainer als registrierter Anwender benutzen zu können, benötigen Sie das Keyfile. Damit können Sie auch neuere Demo-Versionen als Vollversionen benutzen.\nWählen Sie aus, wohin es kopiert werden soll.")
  21.     (set #sameasAT "gleiches Verzeichnis")
  22.     (set #sdir "S: - Verzeichnis")
  23.     (set #bdir "Vokabeln")
  24.     (set #updir "Bitte wählen Sie die 'AmigaTrainer'-Schublade aus, in der das Update installiert werden soll")
  25.     (set #updirhelp "Sie müssen sich hier das Verzeichnis\nauswählen, IN dem sich das Hauptprogramm,\ndie Anleitung usw. befinden.\n\nWichtig: Ihre Vokabeln, die sich evtl.\nin diesem Verzeichnis befinden,\nwerden NICHT gelöscht.")
  26.     (set #uperr "Ich konnte das Hauptprogramm leider nicht in\ndiesem Verzeichnis finden.\n\nBitte beachten Sie, daß Sie sich IM Verzeichnis,\nin dem Hauptprogramm, Anleitung etc. installiert\nsind befinden müssen, wenn Sie den Verzeichnisrequester bestätigen.")
  27.     (set #uperr2 "\n\nMöchten Sie nochmal ein Verzeichnis auswählen oder\nAmigaTrainer neu in dieses Verzeichnis installieren???")
  28.     (set #uperrc1 "Nochmal")
  29.     (set #uperrc2 "Neu installieren")
  30.     (set #what "Was möchten Sie installieren")
  31.     (set #new "AmigaTrainer neu installieren")
  32.     (set #update "Update installieren")
  33.     (set #keyfile "Keyfile installieren")
  34.     (set #atfile "Bitte wählen Sie das 'AmigaTrainer'-Hauptprogramm aus")
  35.     (set #atfilehelp "Sie müssen hier das Hauptprogramm 'AmigaTrainer' auswählen, damit ich den KEYFILE-Tooltype richtig setzen kann.")
  36. ))
  37. (if (= "english" @language)
  38. (
  39.     (set default_lang 2)
  40.     (set #startmsg "\nAmigaTrainer Installation-Script.\n\nThis script will install AmigaTrainer TO your harddisk or floppydisk.\n\nAmigaTrainer © 1994-96 by Frank Weber\nAll rights reserved.")
  41.     (set #choosedir "Please choose the directory where you want the 'AmigaTrainer'-directory to be created in")
  42.     (set #choosehelp (cat "A new directory 'AmigaTrainer' will be created in the directory you select, where AmigaTrainer and all additional files will be copied into."))
  43.     (set #copybeispiel "\n\nDo you want the additional files (words/sounds...) files to be installed ???\n\n(Installation recommended)")
  44.     (set #copybeispiel-help "\nThis package includes some files that will be of use for you when using AmigaTrainer.\n\nSelect 'Yes' if you want them to be installed.")
  45.     (set #overwritemsg (cat"\nAmigaTrainer has already been installed into this directory.\n\nDelete old directory"))
  46.     (set #overwritehelp (cat"\nThere is already a directory called 'AmigaTrainer' in the directory chosen by you.\n\nSelect yes if you want the whole directory to be deleted before this version is installed."))
  47.     (set #overwritemsg (cat"\nAmigaTrainer has already been installed into this drawer.\n\nDelete old AmigaTrainer-drawer ???"))
  48.     (set #overwritehelp (cat"\nIn the drawer you have chosen there is already a directory called 'AmigaTrainer'.\n\nAnswer 'Yes' if you want the old AmigaTrainer-directory to be deleted."))
  49.     (set #chooselang "\nWhich language do you want to have installed ???")
  50.     (set #chooselang-help "\nIf you want to use AmigaTrainer in different languages, the catalog files must be installed. Please choose which catalogs you want to be installed.")
  51.     (set #copylangs "\nDo want to have the language files (catalogs) to be installed ???")
  52.     (set #copylangs-help "\nIf you want to use AmigaTrainer in different languages, the catalog files must be installed.")
  53.     (set #keyfiledir "\nWhere do you want the Keyfile to be installed ??\n")
  54.     (set #keyfiledir-help "\nTo use AmigaTrainer as a registered user, you need the keyfile. With this keyfile you will also be able to use newer demo-versions as regsitred versions.\nChoose where you want to have it installed.")
  55.     (set #sameasAT "same directory")
  56.     (set #sdir "S: - directory")
  57.     (set #bdir "words")
  58.     (set #updir "Please choose the 'AmigaTrainer'-drawer\nwhere you want this update to be installed")
  59.     (set #updirhelp "Here you have to choose the drawer where the\nmain program, the documentation etc.\nare already installed\n\nNOTE: Your word files that might also be\nsomewhere within this drawer are not deleted.")
  60.     (set #uperr "Couldn't locate the main program within this drawer.\nPlease note that you have to be WITHIN directory\nthat contains the main program, the documentation...\nwhen you confirm the directory requester.")
  61.     (set #uperr2 "\n\nWould you like trying to choose the proper\ndirectory again?\n\nElse I could install AmigaTrainer completely new\nto this drawer.")
  62.     (set #uperrc1 "Try again")
  63.     (set #uperrc2 "Install new")
  64.     (set #what "How would you like to have AmigaTrainer installed")
  65.     (set #new "Install new")
  66.     (set #update "Install update")
  67.     (set #keyfile "Install keyfile")
  68.     (set #atfile "Please choose the 'AmigaTrainer' main program")
  69.     (set #atfilehelp "It is necessary for me to know where your main program is located, since I have to set the KEYFILE tooltype")
  70. ))
  71.  
  72.  
  73. (if (exists "Work:" (NOREQ))
  74.   (set default-dir "Work:")
  75.   (set default-dir "Sys:")
  76. )
  77.  
  78. (message #startmsg)
  79.  
  80. (set mode
  81.         (askchoice
  82.                 (prompt #what)
  83.                 (help @askchoice-help)
  84.                 (choices #new #update #keyfile)
  85.                 (default 0)
  86.         )
  87. )
  88.  
  89. (complete 8)
  90.  
  91. (if (= mode 1)    ;Update
  92. (
  93.     (set @default-dest default-dir)
  94.  
  95.     (until (<> updatedir 0)
  96.     (
  97.         (if (> @user-level 0)
  98.                 (set @atdir
  99.                         (askdir
  100.                                 (prompt #updir)
  101.                                 (help #updirhelp)
  102.                                 (default @default-dest)
  103.                         )
  104.                 )
  105.         )
  106.  
  107.         (if (= @atdir 0) (set @atdir @default-dest))
  108.  
  109.         (set updatedir 0)
  110.  
  111.         (if (exists (tackon @atdir "AmigaTrainer"))
  112.         (
  113.             (set size (getsize (tackon @atdir "AmigaTrainer")))
  114.             (if (<> size 0)
  115.                 (
  116.                   (set updatedir 1)
  117.                   (set @default-dest @atdir)
  118.                 )
  119.                 (message #uperr)
  120.             )
  121.         )
  122.         (if (= 0 (askbool (prompt (cat #uperr #uperr2)) (choices #uperrc1 #uperrc2) (help "")) )
  123.            (set updatedir 2)
  124.         )
  125.  
  126.         )
  127.     ))
  128.  
  129.     (if (= updatedir 1)
  130.     (
  131.         (if (exists (tackon @atdir "AmigaTrainer") (noreq)) (delete (tackon @atdir "AmigaTrainer") (infos)))
  132.         (if (exists (tackon @atdir "Anleitung.guide") (noreq)) (delete (tackon @atdir "Anleitung.guide") (infos)))
  133.         (if (exists (tackon @atdir "AT.guide") (noreq)) (delete (tackon @atdir "AT.guide")(infos)))
  134.         (if (exists (tackon @atdir "ReadMe_now") (noreq)) (delete (tackon @atdir "ReadMe_now")(infos)))
  135.         (if (exists (tackon @atdir "LiesMich_jetzt") (noreq)) (delete (tackon @atdir "Liesmich_jetzt")(infos)))
  136.         (if (exists (tackon @atdir "Hallo_Schüler!!") (noreq)) (delete (tackon @atdir "Hallo_Schüler!!")(infos)))
  137.         (if (exists (tackon @atdir "RegiTool") (noreq)) (delete (tackon @atdir "RegiTool")(infos)))
  138.         (if (exists (tackon @atdir "Installer-skript") (noreq)) (delete (tackon @atdir "Installer-Skript")(infos)))
  139.         (if (exists (tackon @atdir "Install_Deutsch.info") (noreq)) (delete (tackon @atdir "Install_Deutsch.info")))
  140.         (if (exists (tackon @atdir "Install_English.info") (noreq)) (delete (tackon @atdir "Install_English.info")))
  141.         (if (exists "Locale:catalogs/deutsch/AT.catalog" (noreq)) (delete "Locale:catalogs/deutsch/AT.catalog"))
  142.         (if (exists "Locale:catalogs/english/AT.catalog" (noreq)) (delete "Locale:catalogs/english/AT.catalog"))
  143.    )
  144.    (
  145.         (if (= updatedir 2)
  146.         (
  147.             (makedir (tackon @atdir "AmigaTrainer") (infos))
  148.             (set @atdir (tackon @atdir "AmigaTrainer/"))
  149.             (set @default-dest @atdir)
  150.         ))
  151.    ))
  152.  
  153. ))
  154.  
  155. (if (<> mode 2)
  156. (
  157.  
  158.     (if (= mode 0)
  159.     (
  160.         (set @default-dest default-dir)
  161.         (if (> @user-level 0)
  162.                 (set @user-dest
  163.                         (askdir
  164.                                 (prompt #choosedir)
  165.                                 (help #choosehelp)
  166.                                 (default @default-dest)
  167.                         )
  168.                 )
  169.         )
  170.  
  171.         (if (= @user-dest 0) (set @user-dest @default-dest))
  172.  
  173.         (set @atdrawername (tackon @user-dest "AmigaTrainer"))
  174.         (set @default-dest @atdrawername)
  175.  
  176.         (if (exists @atdrawername)
  177.         (
  178.           (if (> @user-level 1)
  179.           (
  180.             (set overwrite (askbool
  181.                                    (prompt #overwritemsg)
  182.                                    (help #overwritehelp)
  183.                                    (default 0)
  184.                            )
  185.             )
  186.             (if (= 1 overwrite)
  187.               (run (cat "c:delete QUIET ALL " @atdrawername))
  188.             )
  189.           ))
  190.         ))
  191.  
  192.         (makedir @atdrawername (infos))
  193.     )
  194.     (
  195.         (set @atdrawername @atdir)
  196.         (set @default-dir @atdrawername)
  197.     )
  198.     )
  199.  
  200.     (complete 20)
  201.  
  202.     (copyfiles
  203.          (source "AmigaTrainer")
  204.          (dest @atdrawername)
  205.          (infos))
  206.  
  207.     (complete 30)
  208.  
  209.     (copyfiles
  210.          (source "Anleitung.guide")
  211.          (dest @atdrawername)
  212.          (infos))
  213.  
  214.     (if (< (/ (getversion) 65536) 38)
  215.         (tooltype (dest (tackon @atdrawername "Anleitung.guide"))
  216.                   (setdefaulttool "sys:utilities/AmigaGuide")
  217.         )
  218.  
  219.         (tooltype (dest (tackon @atdrawername "Anleitung.guide"))
  220.                   (setdefaulttool "sys:utilities/Multiview")
  221.         )
  222.  
  223.     )
  224.  
  225.     (if (exists "Manual.guide")
  226.     (
  227.       (copyfiles
  228.            (source "Manual.guide")
  229.            (dest @atdrawername)
  230.            (infos))
  231.  
  232.       (if (< (/ (getversion) 65536) 38)
  233.           (tooltype (dest (tackon @atdrawername "Manual.guide"))
  234.                     (setdefaulttool "sys:utilities/AmigaGuide")
  235.           )
  236.  
  237.           (tooltype (dest (tackon @atdrawername "Manual.guide"))
  238.                     (setdefaulttool "sys:utilities/Multiview")
  239.           )
  240.  
  241.       )
  242.     ))
  243.  
  244.     (complete 40)
  245.  
  246.     (copyfiles
  247.          (source "LiesMich")
  248.          (dest @atdrawername)
  249.          (infos))
  250.  
  251.     (copyfiles
  252.          (source "ReadMe")
  253.          (dest @atdrawername)
  254.          (infos))
  255.  
  256.     (complete 55)
  257.  
  258.     (if (OR (= mode 0) (= updatedir 2))
  259.     (
  260.  
  261.       (if (= default_lang 1)
  262.  
  263.         (copyfiles  (source "AT.config_d")
  264.                     (dest @atdrawername )
  265.                     (newname "AT.config")
  266.         )
  267.         (copyfiles  (source "AT.config_e")
  268.                     (dest @atdrawername)
  269.                     (newname "AT.config")
  270.  
  271.         )
  272.       )
  273.       (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  274.                 (settooltype "OPTIONS" "AT.config")
  275.       )
  276.  
  277.     )
  278.     (
  279.       (if (exists "S:AT.config")
  280.         (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  281.                   (settooltype "OPTIONS" "S:AT.config")
  282.         )
  283.         (if (exists (tackon @atdrawername "AT.config"))
  284.           (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  285.                     (settooltype "OPTIONS" "AT.config")
  286.           )
  287.         )
  288.       )
  289.     ))
  290.  
  291.  
  292.     (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  293.               (settooltype "DOC" "Anleitung.guide")
  294.     )
  295.  
  296.  
  297.     (complete 60)
  298.  
  299.     (if (> @user-level 1)
  300.     (
  301.         (if (askbool (prompt #copybeispiel)
  302.                      (help #copybeispiel-help)
  303.                      (default 0)
  304.             )
  305.             (set installbeispiel 1)
  306.             (set installbeispiel 0)
  307.         )
  308.      )
  309.      ((set installbeispiel 1)
  310.      ))
  311.  
  312.     (if (= 1 installbeispiel)
  313.     (
  314.         (set @beispieldrawer (tackon @atdrawername #bdir))
  315.         (makedir @beispieldrawer)
  316.  
  317.         (copyfiles
  318.              (source (pathonly "Vokabeln/"))
  319.              (dest @beispieldrawer)
  320.              (Pattern "#?")
  321.              )
  322.  
  323.         (makedir (tackon @atdrawername "Sounds"))
  324.  
  325.         (copyfiles
  326.             (source "Sounds/")
  327.             (dest (tackon @atdrawername "Sounds"))
  328.             (Pattern "#?")
  329.         )
  330.  
  331.     ))
  332.  
  333.     (complete 80)
  334.  
  335.     (set locale 0)
  336.     (if (> @user-level 1)
  337.       (set locale 2)
  338.       (set locale 1)
  339.     )
  340.     (if (< @user-level 1)
  341.         (set locale 0)
  342.     )
  343.  
  344.     (if (= locale 2)
  345.       (if (exists "SYS:Locale")
  346.       (
  347.         (if (exists "LOCALE:")
  348.         (
  349.           (set lang (askoptions (prompt #chooselang)
  350.                                 (help #chooselang-help)
  351.                                 (choices "Deutsch" "English")
  352.                                 (default default_lang)
  353.                     )
  354.           )
  355.           (set n 0)
  356.           (while (set language (select n
  357.                                          "deutsch"
  358.                                          "english"
  359.                                          ""
  360.                                 )
  361.                   )
  362.           (
  363.           (if (IN lang n)
  364.           (
  365.               (makedir (tackon "Locale:Catalogs/" language))
  366.               (copyfiles
  367.                  (source (tackon (tackon "Locale/Catalogs/" language) "AT.catalog"))
  368.                  (dest (tackon "Locale:Catalogs/" language))
  369.               )
  370.           ))
  371.           (set n (+ n 1))
  372.           ))
  373.         ))
  374.       ))
  375.     )
  376.  
  377.     (if (= locale 0) (set copylangs 1))
  378.  
  379.     (if (= locale 1)
  380.         (set copylangs (askbool   (prompt #copylangs)
  381.                                   (help #copylangs-help)
  382.                                   (default 0)
  383.                        )
  384.         )
  385.     )
  386.     (if (= 1 copylangs)
  387.     (
  388.         (makedir  "Locale:Catalogs/deutsch")
  389.         (makedir  "Locale:Catalogs/english")
  390.         (copyfiles
  391.            (source "Locale/Catalogs/deutsch/AT.catalog")
  392.            (dest "Locale:Catalogs/deutsch")
  393.         )
  394.         (copyfiles
  395.            (source "Locale/Catalogs/english/AT.catalog")
  396.            (dest "Locale:Catalogs/english")
  397.         )
  398.     ))
  399.  
  400. ))
  401.  
  402. (if (= mode 2)
  403.   (complete 40)
  404.   (complete 90)
  405. )
  406.  
  407. (if (exists "AT_Key-File" (noreq))
  408. (
  409.     (set copykey 2)
  410.     (if (= mode 2)
  411.     (
  412.         (set @atfile (askfile (prompt #atfile)
  413.                               (help #atfilehelp)
  414.                               (default "sys:")
  415.         )            )
  416.         (set @atdrawername (pathonly @atfile))
  417.         (set @default-dest @atdrawername)
  418.     ))
  419.  
  420.     (if (> @user-level 1)
  421.         (set @keyfilepath (askdir (prompt #keyfiledir)
  422.                                   (help #keyfiledir-help)
  423.                                   (default @atdrawername)
  424.                           )
  425.         )
  426.         (set copykey (askbool  (prompt #keyfiledir)
  427.                                (help #keyfiledir-help)
  428.                                (choices #sameasAT #sdir)
  429.                                (default 1)
  430.                      )
  431.         )
  432.      )
  433.      (if (= copykey 1) (set @keyfilepath @atdrawername))
  434.      (if (= copykey 0) (set @keyfilepath "S:"))
  435.  
  436.      (copyfiles  (source "AT_Key-File")
  437.                  (dest @keyfilepath)
  438.      )
  439.  
  440.      (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  441.                (settooltype "KEYFILE" (tackon @keyfilepath "AT_Key-File"))
  442.      )
  443.  
  444.  
  445.      (complete 100)
  446.  
  447. )                   
  448.  
  449. (if (= mode 1)
  450. (
  451.     (if (exists (tackon @atdrawername "AT_Key-File"))
  452.          (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  453.                    (settooltype "KEYFILE" "AT_Key-File")
  454.          )
  455.          (if (exists "S:AT_Key-File")
  456.              (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  457.                        (settooltype "KEYFILE" "S:AT_Key-File")
  458.              )
  459.          )
  460.     )
  461. ))
  462.  
  463. (complete 100)
  464. )
  465.  
  466. (complete 100)
  467.